home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / program / amos / amoslis0.lzh / AMOSLIST / 000210_amos-request@svcs1.digex.net_Mon Aug 21 15:29:07 1995.msg < prev    next >
Internet Message Format  |  1995-09-01  |  3KB
  1. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224]) by mail1.access.digex.net (8.6.12/8.6.12) with ESMTP id PAA21485;  for  ; Mon, 21 Aug 1995 15:28:56 -0400
  2. Received: (from daemon@localhost) by svcs1.digex.net (8.6.12/8.6.12) id LAA20079 for amos-out; Mon, 21 Aug 1995 11:32:32 -0400
  3. Received: from mail1.access.digex.net (mail1.access.digex.net [205.197.247.2]) by svcs1.digex.net (8.6.12/8.6.12) with ESMTP id LAA20073 for <amos-list@svcs1.digex.net>; Mon, 21 Aug 1995 11:32:29 -0400
  4. Received: from seraph.uunet.ca (uunet.ca [142.77.1.254]) by mail1.access.digex.net (8.6.12/8.6.12) with ESMTP id LAA23501;  for <amos-list@access.digex.net> ; Mon, 21 Aug 1995 11:32:28 -0400
  5. Received: from portnoy.canrem.com ([198.133.42.17]) by mail.uunet.ca with SMTP id <207683-3>; Mon, 21 Aug 1995 11:34:33 -0400
  6. Received: from canrem.com by portnoy.canrem.com (4.1/SMI-4.1)
  7.     id AA00257; Mon, 21 Aug 95 11:28:09 EDT
  8. Received: by canrem.com (PCB-UUCP 1.1f)
  9.     id 1F0B17; Mon, 21 Aug 95 11:04:22 -0500
  10. To: amos-list@access.digex.net
  11. Reply-To: CRSO.Amos@canrem.com
  12. Sender: CRSO.Amos@canrem.com
  13. Subject: buttons
  14. From: mike.pelletier@canrem.com (Mike Pelletier)
  15. Message-Id: <60.3050.6587.0C1F0B17@canrem.com>
  16. In-Reply-To: <01HU7SBTX65E8WVZ4K@Jetson.UH.EDU>
  17. Date: Mon, 21 Aug 1995 11:41:00 -0400
  18. Organization: CRS Online  (Toronto, Ontario)
  19. Status: RO
  20. X-Status: 
  21.  
  22. Can't say for AMAL, but for AMOS:
  23.  
  24. Do
  25.    Proc SEGAFIRE[0]
  26.    Print Bin$(Param,4)
  27.    Proc SEGAFIRE[1]
  28.    Print Bin$(Param,4)
  29. Loop
  30.  
  31. Procedure SEGAFIRE[BUTTON]
  32.    '  Amiga 4-button joystick code...
  33.    '
  34.    '  Stick discovery by Ed Bamber
  35.    '  Code created by Anthony Ball
  36.    '  Converted to AMOS by Brad Gust
  37.    '
  38.    '  (C)1992 Anthony Ball & Edmund Bamber
  39.    '  (C)1994 Brad Gust
  40.    '
  41.    '  Requires a SEGA joystick with wires 5 & 7 swapped
  42.    '
  43.    REG=$0
  44.    If BUTTON
  45.       If Fire(1)
  46.        REG=REG+$4
  47.       End If
  48.       If Not Btst(6,$DFF016)
  49.          REG=REG+$2
  50.       End If
  51.       Doke $DFF034,$E000
  52.       If Fire(1)
  53.          REG=REG+$8
  54.       End If
  55.       If Not Btst(6,$DFF016)
  56.          REG=REG+$1
  57.       End If
  58.    Else
  59.       If Fire(0)
  60.          REG=REG+$4
  61.       End If
  62.       If Not Btst(2,$DFF016)
  63.          REG=REG+$2
  64.       End If
  65.       Doke $DFF034,$E00
  66.       If Fire(0)
  67.          REG=REG+$8
  68.       End If
  69.       If Not Btst(2,$DFF016)
  70.          REG=REG+$1
  71.       End If
  72.    End If
  73. End Proc[REG]
  74.  
  75. That was up here a while back.  Hope it helps.
  76.  
  77. Well met and godspeed,
  78.                       Giark